<% ' PEGANDO OS DADOS DO CONTEÚDO A SER EXIBIDO idEvento = request("id") SQLQuery = "SELECT * FROM agenda WHERE id = " & idEvento Set rsEvento = Conn.Execute(SQLQuery) IF NOT rsEvento.EOF THEN strContID = rsEvento.fields("id") strContTitulo = rsEvento.fields("titulo") strContLocal = rsEvento.fields("local") strContDescricao = rsEvento.fields("descricao") strContDataIni = rsEvento.fields("data_inicio") strContDataFim = rsEvento.fields("data_termino") ' DISPONIBILIZANDO response.write "

" response.write "

" response.write "
" & day(strContDataIni) & "
" response.write "" & MID(weekdayname(weekday(strContDataIni)),1,3) & "
" Response.write "

" response.write "

" response.write "" & strContTitulo & "
" response.write "" & strContLocal & "

" & strContDescricao & "

" response.write "

" Response.write "

" ELSE ' ERRO! response.write "Nenhum evento encontrado!" END IF Set rsEvento = Nothing %>